home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 25
/
Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
hier ist schluss
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
766b
|
16 lines
100 poke53281,.:print"[147]worauf wartest du noch? ":fori=1to6step-5
120 ti$="000003":wait161,1:poke53280,.:print"[158][147]hier kommt nichts mehr ! "
122 forj=1to3:print
125 ti$="000003":wait161,1 :goto130
130 print"[147] denn hier ist diese seite am [146] ";:print"[157][157][157][157][157]"
140 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] ";
150 ti$="000003":wait161,1:
210 poke646,int(rnd(8)*15)+9:print"":nextj:poke53280,int(rnd(0)*15)+1:
211 poke53281,int(rnd(6)*11)+5:poke56325,1:nexti:print"[149] [145][145][145][145][145]":
500 print" [162][162][162][162][162] [162] [162] [162][162][162][162] [162][162][162][162][162] ";
510 print" [162] [162][162] [162] [162] [162] [162] ";
520 print" [162][162][162] [162][160][162] [162] [162] [162] [162][162][162] ";
530 print" [162] [162] [162][162] [162] [162] [185] ";
540 print" [185][185][185][185][185] [162] [162] [162][162][162][162] [162][162][162][162][162][145][145][145][145][145][145][145][145] ";:poke56325,58:
550 fora=0to10:print"[151]":next:poke53280,.:poke646,6:ti$="000002":wait161,1:sys58253